home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / VISIT.CHK < prev    next >
Text File  |  1994-08-22  |  342b  |  27 lines
  1. BEFORE FILE
  2.   DEFINE varINIT  _
  3. END
  4.  
  5. PERSONID
  6.   KEY 1
  7. END
  8.  
  9. VISIT
  10.   BEFORE ENTRY
  11.     varINIT = "Y"
  12.     TYPE "@varNAME" -12 +4 31
  13.     TYPE "@varAGE"  -11 +6 31
  14.     TYPE "@varSEX"   +1 +6 31
  15.     TYPE "@varILL"  +11 +6 31
  16.   END
  17. END
  18.  
  19. FINDINGS
  20.   BEFORE ENTRY
  21.     IF varINIT = . THEN
  22.       GOTO VISIT
  23.     ENDIF
  24.   END
  25. END
  26. 
  27.